home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / pdq_41.arc / PDQ.ASP < prev    next >
Text File  |  1990-03-24  |  2KB  |  52 lines
  1. ; *** Change the dialing directory entry # for THE INV FACT at DIAL command.
  2. ; *** Enter YOUR name and password at "FIRST LAST PASSWORD".
  3. ;
  4. ; This script may be executed BEFORE dialing the Invention Factory (in which
  5. ; case it will dial for you) or AFTER you are already connected. If you run
  6. ; this script after you are already connected, you must be at the PC Board
  7. ; main command prompt.
  8. ;
  9. ;
  10.  
  11. IF  CONNECTED
  12.     ASSIGN S6 "PDQ-XFR.ASP"
  13.     EXECUTE "PDQ-BOX.ASP"
  14. ELSE
  15.     SWITCH S6
  16.         CASE _NULL
  17.             ASSIGN S6 "PDQ.ASP"
  18.             EXECUTE "PDQ-BOX.ASP"
  19.         ENDCASE
  20.         DEFAULT
  21.             SWITCH S7
  22.                 CASE _NULL
  23.                 ENDCASE
  24.                 DEFAULT
  25.                     BOX    10 0 12 79 79
  26.                     TIME S9 1
  27.                   FATSAY 11 2 79 "%s SCRIPT SUSPENDED UNTIL %s:%s..." S9 S7 S8
  28.                     SUSPEND UNTIL S7 S8
  29.                 ENDCASE
  30.             ENDSWITCH
  31.             GOSUB LOGON
  32.             EXECUTE "PDQ-XFR.ASP"
  33.         ENDCASE
  34.     ENDSWITCH
  35. ENDIF
  36. EXIT
  37.  
  38. LOGON:
  39.     DIAL 9                          ; *** Put directory entry for INV FACT.
  40.     WAITFOR "ics (Enter)=no? "
  41.     WHEN "More? " "n^M"
  42.     TRANSMIT "^M"
  43.     WAITFOR "first name? "
  44.     TRANSMIT "FIRST LAST PASSWORD"  ; *** Put your name and password here!
  45.     TRANSMIT "^M"
  46.     WAITFOR "(Enter)=yes? "
  47.     TRANSMIT "n^M"
  48. ;    WAITFOR "continue? "  ; Leave these lines commented out, this prompt
  49. ;    TRANSMIT "^M"         ; is no longer given.
  50.     WAITFOR "Command? "
  51. RETURN
  52.